home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / tpascal / bpvbx / property.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-31  |  1.2 KB  |  57 lines
  1. unit Property;
  2.  
  3. interface
  4.  
  5. uses
  6.     Global,
  7.     vbapi_;
  8.  
  9. {//---------------------------------------------------------------------------
  10. // Property list
  11. //---------------------------------------------------------------------------
  12. // Define the consecutive indicies for the properties
  13. //---------------------------------------------------------------------------}
  14. type
  15.     Property_Index = (
  16.         IPROP_Circle_CTLNAME,
  17.         IPROP_Circle_INDEX,
  18.         IPROP_Circle_BACKCOLOR,
  19.         IPROP_Circle_LEFT,
  20.         IPROP_Circle_TOP,
  21.         IPROP_Circle_WIDTH,
  22.         IPROP_Circle_HEIGHT,
  23.         IPROP_Circle_VISIBLE,
  24.         IPROP_Circle_PARENT,
  25.         IPROP_Circle_DRAGMODE,
  26.         IPROP_Circle_DRAGICON,
  27.         IPROP_Circle_TAG,
  28.         IPROP_Circle_Shape,
  29.         IPROP_Circle_FlashColor,
  30.         IPROP_Circle_Hwnd,
  31.         IPROP_Circle_Last);
  32.  
  33. const
  34.     Circle_Properties: array[Property_Index]of ofsPPROPINFO =
  35. (
  36.     pPROPInfo_STD_CTLNAME,
  37.     PPROPINFO_STD_INDEX,
  38.     PPROPINFO_STD_BACKCOLOR,
  39.     PPROPINFO_STD_LEFT,
  40.     PPROPINFO_STD_TOP,
  41.     PPROPINFO_STD_WIDTH,
  42.     PPROPINFO_STD_HEIGHT,
  43.     PPROPINFO_STD_VISIBLE,
  44.     PPROPINFO_STD_PARENT,
  45.     PPROPINFO_STD_DRAGMODE,
  46.     PPROPINFO_STD_DRAGICON,
  47.     PPROPINFO_STD_TAG,
  48.     tOffset(@Property_CircleShape),
  49.     tOffset(@Property_FlashColor),
  50.     PPROPINFO_STD_Hwnd,
  51.     0
  52. );
  53.  
  54. implementation
  55. begin
  56. end.
  57.